home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexComm.tcl < prev    next >
Encoding:
Text File  |  1998-12-19  |  15.6 KB  |  549 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexComm.tcl (called from latex.tcl)
  5. #
  6. #############################################################################
  7. #
  8. # Old Author:  Tom Scavo <trscavo@syr.edu>
  9. # New Author:  Vince Darley <darley@fas.harvard.edu>
  10. #############################################################################
  11. #############################################################################
  12.  
  13. proc latexComm.tcl {} {}
  14. #--------------------------------------------------------------------------
  15. # TeX applications
  16. #--------------------------------------------------------------------------
  17.  
  18. # In the following scripts, $quotedSig and $filename are the application 
  19. # signature and the name of the file to be typeset, respectively.  (See
  20. # proc 'evalTeXScript' below.)
  21. array set bibtexAppScripts {
  22.   DirectTeXPro {
  23.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 5"}
  24. } CMacTeX {
  25.     {sendOpenEvent noReply $quotedSig $filename}
  26. } BibTeX {
  27.     {sendOpenEvent noReply $quotedSig $filename}
  28. }
  29. }
  30. array set bibtexAppSignatures {
  31.   CMacTeX CMTu BibTeX Vbib
  32. }
  33. array set dvipsAppScripts {
  34.   DirectTeXPro {
  35.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\";  directory \$dt_TeXProjectDir > CurrDirectory; dvips \$dt_TeXProjectName"}
  36. } CMacTeX {
  37.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -t 600 -f $filename}
  38. } OzTeX {
  39.     {sendOpenEvent noReply $quotedSig $filename}
  40. }
  41. }
  42. array set dvipsAppSignatures {
  43.   DirectTeXPro TeX+ CMacTeX CMT1 OzTeX OzDP
  44. }
  45. array set makeindexAppScripts {
  46.   DirectTeXPro {
  47.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 6"}
  48. } CMacTeX {
  49.     {sendOpenEvent noReply $quotedSig $filename}
  50. } MakeIndex {
  51.     {sendOpenEvent noReply $quotedSig $filename}
  52. }
  53. }
  54. array set makeindexAppSignatures {
  55.   DirectTeXPro TeX+ CMacTeX CMTt MakeIndex RZMI
  56. }
  57. array set printDVIAppScripts {
  58.   Textures {
  59.     {AEBuild $quotedSig aevt pdoc "----" [makeAlis $filename]}
  60. } DirectTeXPro {
  61.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 9"}
  62. } CMacTeX {
  63.     {dosc -c $quotedSig -k 'aevt' -e 'pdoc' -r -f $filename}
  64. } OzTeX {
  65.     {dosc -c $quotedSig -k 'aevt' -e 'pdoc' -r -f $filename}
  66. }
  67. }
  68. array set printDVIAppSignatures {
  69.   Textures *TEX DirectTeXPro TeX+ CMacTeX CMT8 OzTeX OTEX
  70. }
  71. array set printPSAppScripts {
  72.   DropPS {
  73.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  74. } DirectTeXPro {
  75.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\";  directory \$dt_TeXProjectDir > CurrDirectory; download \$dt_TeXProjectName.ps"}
  76. } CMacTeX {
  77.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  78. }
  79. }
  80. array set printPSAppSignatures {
  81.   DropPS D•PS DirectTeXPro TeX+ CMacTeX PSP*
  82. }
  83. array set texAppScripts {
  84.   DirectTeX {
  85.     {set script "Begin; ChangeTeXProject '$filename' -check -confirm || Exit 0;  Execute \"{dt_TeXProject}\"; TeXMenu -tex -formats;  End ∑ Dev:Null; RunSession 1 ∑ Dev:Null"} 
  86.     {dosc -r -c $quotedSig -s $script} 
  87. } Textures {
  88.     {global Texturesconnections} 
  89.     {set TeXjob ""} 
  90.     {
  91.         if {[info exists Texturesconnections]} {
  92.             foreach entry $Texturesconnections {
  93.                 if {[car $entry] == $filename} {
  94.                     set TeXjob [cadr $entry]
  95.                     break
  96.                 }
  97.             }
  98.         }
  99.     }   
  100.     {
  101.         if { $TeXjob == "" } {
  102.             set TeXjob [AEBuild -r $quotedSig BSRs Begi]
  103.             set TeXjob [string trim [string range $TeXjob 15 end] {\{\}\"}]
  104.             lappend Texturesconnections [list $filename $TeXjob]
  105.         }
  106.     }   
  107.     {AEBuild -t 1200 $quotedSig BSRs Typs "----" [makeAlis $filename] fmat {"LaTeX"} Jobi $TeXjob} 
  108. } DirectTeXPro {
  109.     {dosc -c $quotedSig -s  "if \$dt_TeXFormat = \'\' \"set dt_TeXFormat -x \$dt_DefaultFormat\""} 
  110.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat \"$filename\"; MenuCommand 1 4"} 
  111. } CMacTeX {
  112.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  113. } OzTeX {
  114.     {sendOpenEvent noReply $quotedSig $filename}
  115. } 
  116. }
  117. array set texAppSignatures {
  118.   DirectTeX MPS* Textures *TEX DirectTeXPro TeX+ 
  119.   CMacTeX {*XeT BTxT pXeT} OzTeX OTEX
  120. }
  121. array set viewDVIAppScripts {
  122.   Textures {
  123.     {AEBuild $quotedSig aevt odoc "----" [makeAlis $filename]}
  124. } DirectTeXPro {
  125.     {dosc -c $quotedSig -s "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 8"}
  126. } CMacTeX {
  127.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  128. } OzTeX {
  129.     {sendOpenEvent noReply $quotedSig $filename}
  130. }
  131. }
  132. array set viewDVIAppSignatures {
  133.   Textures *TEX DirectTeXPro TeX+ CMacTeX {PIVD CMT8} OzTeX OTEX
  134. }
  135. array set viewPSAppScripts {
  136.   CMacTeX {
  137.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  138. } MacGS {
  139.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  140. }
  141. }
  142. array set viewPSAppSignatures {
  143.   CMacTeX {CMT5 CMTJ TMCJ} MacGS gsVR
  144. }
  145.  
  146. #--------------------------------------------------------------------------
  147. # Typeset submenu commands
  148. #--------------------------------------------------------------------------
  149.  
  150. proc typeset {{bg 0}} {
  151.     # Is there a window open?
  152.     set currentWin [win::Current]
  153.     if { $currentWin == "" } {
  154.         typesetFile "" $bg
  155.         return
  156.     }
  157.     # Strip off trailing garbage (if any):
  158.     regexp {(.*) <[0-9]+>} $currentWin dummy currentWin
  159.     # Is the current window part of TeX fileset?
  160.     set fset [isWindowInFileset $currentWin "tex"]
  161.     if { $fset != "" } {
  162.         if [dirtyFileset $fset] {
  163.             switch [askyesno -c "Save current TeX fileset?"] {
  164.                 "yes" {saveEntireFileset $fset}
  165.                 "no" {
  166.                      # do nothing
  167.                 }
  168.                 "cancel" {return}
  169.             }
  170.         }
  171.         typesetFile [texFilesetBaseName $fset] $bg
  172.         return
  173.     }
  174.     # Is the window untitled or dirty?
  175.     global PREFS
  176.     set currentDoc [file tail $currentWin]
  177.     if { [set num [winUntitled]] } {
  178.         switch [askyesno -c "Save \"$currentDoc\"?"] {
  179.             "yes" {
  180.                 if {[catch {set currentWin [saveAs "Untitled$num\.tex"]}]} {return}
  181.             }
  182.             "no" {
  183.                 set tmpFilename "Untitled$num\.tex"
  184.                 set text [getText [minPos] [maxPos]]
  185.                 if {![file exists [file join $PREFS tmp]]} { mkdir [file join $PREFS tmp] }
  186.                 set newDoc [file join $PREFS tmp $tmpFilename]
  187.                 file::writeAll $newDoc $text 1
  188.                 set currentWin $newDoc
  189.             }
  190.             "cancel" {return}
  191.         }
  192.     } elseif { [winDirty] } {
  193.         switch [askyesno -c "Save \"$currentDoc\"?"] {
  194.             "yes" {save}
  195.             "no" {
  196.                 set text [getText [minPos] [maxPos]]
  197.                 if {![file exists [file join $PREFS tmp]]} { file mkdir [file join $PREFS tmp] }
  198.                 set newDoc [file join $PREFS tmp temp-$currentDoc]
  199.                 file::writeAll $newDoc $text 1
  200.                 set currentWin $newDoc
  201.             }
  202.             "cancel" {return}
  203.         }
  204.     }
  205.     # Is the current window TeX-able?
  206.     set ext [file extension $currentWin]
  207.     if { [lsearch -exact {.tex .ltx .dtx .ins} $ext] < 0 } {
  208.         typesetFile "" $bg
  209.         return
  210.     }
  211.     typesetFile $currentWin $bg
  212. }
  213.  
  214. proc typesetSelection {} {
  215.     global PREFS
  216.     if { [isSelection] } { 
  217.         watchCursor
  218.         message "processing selection…"
  219.         set currentWin [win::Current]
  220.         # Is the current window part of TeX fileset?
  221.         set fset [isWindowInFileset $currentWin "tex"]
  222.         if { $fset == "" } {
  223.             set pos1 [getPos]
  224.             if { [isInDocument] } {
  225.                 set pos2 [selEnd]
  226.                 if { [isInDocument] } {
  227.                     # fall through
  228.                 } else {
  229.                     beep
  230.                     set msg "Selection not in document environment.  Continue?"
  231.                     if { [askyesno $msg] == "no" } { return }
  232.                 }
  233.             } else {
  234.                 beep
  235.                 set msg "Selection not in document environment.  Continue?"
  236.                 if { [askyesno $msg] == "no" } { return }
  237.                 set pos2 [selEnd]
  238.             }
  239.             set body "\r[getText $pos1 $pos2]\r"
  240.             set searchText [getText [minPos] [maxPos]]
  241.         } else {
  242.             set body "\r[getSelect]\r"
  243.             # Will not handle a base file that is open and dirty:
  244.             set searchText [buildFilecontents [texFilesetBaseName $fset]]
  245.         }
  246.         message "building temporary document…"
  247.         set pattern {(\\documentclass.*)\\begin\{document\}}
  248.         if { ![regexp $pattern $searchText dummy preamble] } {
  249.             set preamble "\\documentclass\{article\}\r"
  250.         }
  251.         set rootFile [file rootname $currentWin]
  252.         set tempFile "temp-[file tail $rootFile]"
  253.         set auxFile $rootFile.aux
  254.         if { [file exists $auxFile] } {
  255.             set latexDoc [buildFilecontents $auxFile $tempFile.aux]
  256.         } else {
  257.             set latexDoc {}
  258.         }
  259.         append latexDoc $preamble [buildEnvironment "document" "" $body "\r"]
  260.         set currentDir [file dirname $currentWin]
  261.         set latexDoc [texResolveAll $latexDoc $currentDir]
  262.         if {![file exists [file join $PREFS tmp]]} { file mkdir [file join $PREFS tmp] }
  263.         set newFile [file join $PREFS tmp $tempFile.tex]
  264.         file::writeAll $newFile $latexDoc 1
  265.         typesetFile $newFile
  266.     } else {
  267.         beep
  268.         message "no selection"
  269.     }
  270. }
  271.  
  272. proc typesetClipboard {} {
  273.     global PREFS
  274.     set body "\r[getScrap]\r"
  275.     set pat1 {\\begin\{document\}.*\\end\{document\}}
  276.     set pat2 {\\documentclass}
  277.     set preamble "\\documentclass\{article\}\r"
  278.     # Check to see if there's a document environment:
  279.     if {![regexp $pat1 $body]} {
  280.         append text $preamble [buildEnvironment "document" "" $body "\r"]
  281.     } else {
  282.         # Check to see if there's a \documentclass command:
  283.         if {![regexp $pat2 $body]} {
  284.             append text $preamble $body
  285.         } else {
  286.             set text $body
  287.         }
  288.     }
  289.     if {![file exists [file join $PREFS tmp]]} { file mkdir [file join $PREFS tmp] }
  290.     set newFile [file join $PREFS tmp temp-noname\.tex]
  291.     file::writeAll $newFile $text 1
  292.     set currentWin $newFile
  293.     typesetFile $currentWin
  294. }
  295.  
  296. # Typeset $filename, but perform no error-checking
  297. #
  298. proc typesetFile {filename {bg 0}} {
  299.     if { $filename == "" } {
  300.     set filename [getfile "Choose a file to typeset:"]
  301.     }
  302.     evalTeXScript tex {TeX app} $filename $bg
  303. }
  304.  
  305. # Apply $op to a file with extension $ext.  (See latexMenu.tcl for
  306. # many examples.)  If 'forcecurrent == 1', use the current window 
  307. # even if it belongs to a TeX fileset.
  308. #
  309. proc doTypesetCommand {op ext {forcecurrent 0}} {
  310.     if { [set filename [findAuxiliaryFile $ext $forcecurrent]] != "" } {
  311.     if { $op == "open" } { 
  312.         edit -r -m -w $filename 
  313.     } else {
  314.         $op${ext}File $filename
  315.     }
  316.     } else {
  317.     beep
  318.     alertnote "No $ext file found!"
  319.     }
  320. }
  321.  
  322. proc viewDVIFile {filename} {
  323.     evalTeXScript viewDVI {DVI viewer} $filename
  324. }
  325.  
  326. proc printDVIFile {filename} {
  327.     evalTeXScript printDVI {DVI print driver} $filename
  328. }
  329.  
  330. proc dvipsDVIFile {filename} {
  331.     evalTeXScript dvips {DVI-to-PS filter} $filename
  332. }
  333.  
  334. proc viewPSFile {filename} {
  335.     if {[catch {evalTeXScript viewPS {PS viewer} $filename}]} {
  336.     message "View aborted."
  337.     }
  338. }
  339.  
  340. proc printPSFile {filename} {
  341.     evalTeXScript printPS {PS print driver} $filename
  342. }
  343.  
  344. proc bibtexAUXFile {filename} {
  345.     evalTeXScript bibtex {BibTeX app} $filename
  346. }
  347.  
  348. proc makeindexIDXFile {filename} {
  349.     evalTeXScript makeindex {MakeIndex app} $filename
  350. }
  351.  
  352. proc makeindexGLOFile {filename} {
  353.     evalTeXScript makeindex {MakeIndex app} $filename
  354. }
  355.  
  356. proc evalTeXScript {op prompt filename {runAppInBackground 0}} {
  357.     global showTeXLog
  358.     if {[info exists showTeXLog]} {
  359.     app::runScript $op $prompt $filename $runAppInBackground $showTeXLog
  360.     } else {
  361.     app::runScript $op $prompt $filename $runAppInBackground 0
  362.     }
  363.     # this code needs a mechanism for waiting for the TeX run to complete
  364.     if {0 && !$runAppInBackground && ($showTeXLog == 2)} {
  365.     set fname [file tail $filename]
  366.     set curr [file tail [win::Current]]
  367.     if {[file extension $curr] == ".log" && ([file root $fname] == [file root $curr])} {
  368.         return
  369.     } else {
  370.         set fname [file root $filename]
  371.         file::openQuietly ${fname}.log
  372.     }
  373.     }
  374. }
  375.  
  376. # Two bugs in 'getfile' (see "alpha.bugs58"):
  377. proc openAnyTeXFile {} {
  378.     set    filename [getfile "" [win::Current]]
  379.     if { ![string length $filename] } return
  380.     edit -r -m -w $filename
  381. }
  382.  
  383. proc removeAuxiliaryFiles {} {
  384.     set word ""
  385.     set removeSilently 0
  386.     set currentWin [win::Current]
  387.     if { $currentWin == "" } { return }
  388.     set currentDir [file dirname $currentWin]
  389.     set extensions {.ps .dvi .log .aux .bbl .idx .ind .glo .gls \
  390.                     .toc .lof .lot .blg .ilg}
  391.     foreach ext $extensions {
  392.         message "Checking for *$ext files…"
  393.         set files [glob -nocomplain [file join $currentDir *$ext]]
  394.         foreach file $files {
  395.             set word " more"
  396.             if {$removeSilently} {
  397.                 if {[catch {rm [file join $currentDir *$ext]}]} {
  398.                     alertnote "not all \"*$ext\" files deleted"
  399.                 }
  400.                 break
  401.             } else {
  402.                 message ""
  403.                 set filename [file tail $file]
  404.                 switch [buttonAlert "Remove \"$filename\"?" "yes" "no" {rm ext} {rm all} "cancel"] {
  405.                     "yes" {
  406.                         message "Removing $filename…"
  407.                         if {[catch {removeFile [file join $currentDir $filename]}]} {
  408.                             alertnote "\"$filename\" not deleted"
  409.                         } else {
  410.                             message $filename
  411.                         }
  412.                     }
  413.                     "no" {}
  414.                     "rm ext" {
  415.                         if {[catch {rm [file join $currentDir *$ext]}]} {
  416.                             alertnote "not all \"*$ext\" files deleted"
  417.                         }
  418.                         break
  419.                     }
  420.                     "rm all" {
  421.                         if {[catch {rm [file join $currentDir *$ext]}]} {
  422.                             alertnote "not all \"*$ext\" files deleted"
  423.                         }
  424.                         set removeSilently 1
  425.                         break
  426.                     }
  427.                     "cancel" {return}
  428.                 }
  429.             }
  430.         }
  431.     }
  432.     message "No$word files found"
  433. }
  434.  
  435. #--------------------------------------------------------------------------
  436. # Utility procs:
  437. #--------------------------------------------------------------------------
  438.  
  439. # Find a LaTeX auxiliary file with extension $ext.  If 'forcecurrent' 
  440. # is true, search the current directory without checking for TeX filesets.
  441. #
  442. proc findAuxiliaryFile {ext {forcecurrent 0}} {
  443.     
  444.     set currentWin [win::Current]
  445.     if { $currentWin == "" } { return "" }
  446.     set currentDoc [file tail $currentWin]
  447.  
  448.     if $forcecurrent {
  449.         # pretend there are no TeX filesets:
  450.         set fset ""
  451.     } else {
  452.         set fset [isWindowInFileset $currentWin "tex"]
  453.     }
  454.     
  455.     if { $fset != "" } {
  456.         
  457.         set currentWin [texFilesetBaseName $fset]
  458.         set currentDoc [file tail $currentWin]
  459.         set currentDir [file dirname $currentWin]
  460.         set docBasename [file rootname $currentDoc]
  461.         set lowerExt [string tolower $ext]
  462.         
  463.     } else {
  464.         
  465.         # we do all this if it's not a project:
  466.         set currentDir [file dirname $currentWin]        
  467.         set docBasename [file rootname $currentDoc]
  468.         set lowerExt [string tolower $ext]
  469.         
  470.         # Is the window untitled or dirty?
  471.         global PREFS
  472.         if { [set num [winUntitled]] } {
  473.             set filename [file join $PREFS tmp Untitled$num\.$lowerExt]
  474.             if { [file exists $filename] } {
  475.                 return $filename
  476.             } else {
  477.                 return ""
  478.             }
  479.         } elseif { [winDirty] } {
  480.             switch [askyesno "Window dirty---continue anyway?"] {
  481.                 "yes" {
  482.                     set filename [file join $PREFS tmp temp-$currentDoc\.$lowerExt]
  483.                     if { [file exists $filename] } {
  484.                         return $filename
  485.                     } else {
  486.                         # fall through
  487.                     }
  488.                 }
  489.                 "no" {return ""}
  490.             }
  491.         }
  492.     }
  493.     
  494.     # Check the current directory:
  495.     set filename [file join $currentDir $docBasename\.$lowerExt]
  496.     if { [file exists $filename] } {
  497.         return $filename
  498.     } else {
  499.         return ""
  500.     }
  501. }
  502.  
  503. # If the current window is untitled, return its number (i.e., either
  504. # the number 1 or the number  n  in "Untitled <n>"); otherwise, return 0.
  505. proc winUntitled {} {
  506.     set currentWin [win::Current]
  507.     if { $currentWin == "" } { return 0 }
  508.     set currentDoc [file tail $currentWin]
  509.     if { [string match $currentWin $currentDoc] } {
  510.         if { [regexp {<(.*)>} $currentDoc dummy num] } {
  511.             return $num
  512.         } else {
  513.             return 1
  514.         }
  515.     } else {
  516.         return 0
  517.     }
  518. }
  519.  
  520. ## 
  521.  # -------------------------------------------------------------------------
  522.  # 
  523.  # "texApp" --
  524.  # 
  525.  #  Switch to bibtex, latex or makeindex
  526.  # -------------------------------------------------------------------------
  527.  ##
  528. proc texApp {name} {
  529.     set type [string tolower $name]
  530.     global ${type}Sig ${type}AppSignatures
  531.     set supportedApps [array names ${type}AppSignatures]
  532.     foreach app $supportedApps { eval lappend sigs [set ${type}AppSignatures($app)] }
  533.     set longPrompt "Please locate your ${name} app."
  534.     if { [catch {app::launchAnyOfThese $sigs ${type}Sig $longPrompt} appname] } {
  535.     error "bug in 'app::launchAnyOfThese'"
  536.     }
  537.     set quotedSig "'[string trim [set ${type}Sig] {'}]'"
  538.     switchTo $quotedSig
  539. }
  540.  
  541.  
  542.  
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.